home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / lokman / DISK1 / _SETUP.2 / Group1 / Tarihdll.dll / 0 / RCDATA / TFMJENBR / TFMJENBR.txt < prev   
Text File  |  1998-07-24  |  10KB  |  346 lines
  1. object fmJENBR: TfmJENBR
  2.   Left = 77
  3.   Top = 47
  4.   ActiveControl = DBGridJEN
  5.   BorderStyle = bsDialog
  6.   Caption = 'JENER∩┐╜K ∩┐╜S∩┐╜MLER∩┐╜ KAYITLARI'
  7.   ClientHeight = 345
  8.   ClientWidth = 515
  9.   Color = clSilver
  10.   Font.Color = clBlack
  11.   Font.Height = -11
  12.   Font.Name = 'Arial'
  13.   Font.Style = []
  14.   KeyPreview = True
  15.   Position = poScreenCenter
  16.   OnKeyDown = FormKeyDown
  17.   PixelsPerInch = 96
  18.   TextHeight = 14
  19.   object Panel1: TPanel
  20.     Left = 0
  21.     Top = 0
  22.     Width = 515
  23.     Height = 57
  24.     HelpContext = 317
  25.     Align = alTop
  26.     BevelInner = bvLowered
  27.     BevelWidth = 3
  28.     BorderWidth = 1
  29.     Color = clNavy
  30.     Ctl3D = True
  31.     ParentCtl3D = False
  32.     TabOrder = 0
  33.     object Navigator: TDBNavigator
  34.       Left = 19
  35.       Top = 17
  36.       Width = 125
  37.       Height = 26
  38.       DataSource = jenBrSRC
  39.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
  40.       Ctl3D = False
  41.       Hints.Strings = (
  42.         'lk kay∩┐╜t'
  43.         '∩┐╜nceki'
  44.         'Sonraki'
  45.         'SonKay∩┐╜t'
  46.         'Yeni Kay∩┐╜t'
  47.         'Kay∩┐╜t Sil'
  48.         'D∩┐╜zelt'
  49.         'Kaydet'
  50.         'Vazge∩┐╜'
  51.         'Tazele')
  52.       ParentCtl3D = False
  53.       ParentShowHint = False
  54.       ShowHint = True
  55.       TabOrder = 0
  56.       TabStop = True
  57.     end
  58.     object BitBtnSec: TBitBtn
  59.       Left = 410
  60.       Top = 15
  61.       Width = 87
  62.       Height = 27
  63.       HelpContext = 502
  64.       Caption = '&Se∩┐╜'
  65.       Font.Color = clNavy
  66.       Font.Height = -12
  67.       Font.Name = 'Arial'
  68.       Font.Style = [fsBold]
  69.       ParentFont = False
  70.       ParentShowHint = False
  71.       ShowHint = False
  72.       TabOrder = 1
  73.       Visible = False
  74.       OnClick = BitBtnSecClick
  75.       Glyph.Data = {
  76.         76010000424D7601000000000000760000002800000020000000100000000100
  77.         04000000000000010000130B0000130B00000000000000000000000000000000
  78.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  79.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
  80.         333333333333337FF3333333333333903333333333333377FF33333333333399
  81.         03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
  82.         99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
  83.         99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
  84.         03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
  85.         33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
  86.         33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
  87.         3333777777333333333333333333333333333333333333333333}
  88.       Layout = blGlyphRight
  89.       NumGlyphs = 2
  90.       Spacing = 11
  91.     end
  92.   end
  93.   object Panel2: TPanel
  94.     Left = 0
  95.     Top = 57
  96.     Width = 515
  97.     Height = 231
  98.     HelpContext = 317
  99.     Align = alClient
  100.     BevelInner = bvLowered
  101.     BevelOuter = bvLowered
  102.     BorderWidth = 4
  103.     Caption = 'Panel2'
  104.     Color = clSilver
  105.     Font.Color = clBlack
  106.     Font.Height = -12
  107.     Font.Name = 'Arial'
  108.     Font.Style = []
  109.     ParentFont = False
  110.     TabOrder = 1
  111.     OnClick = DBGridJENColEnter
  112.     object Label1: TLabel
  113.       Left = 181
  114.       Top = 8
  115.       Width = 3
  116.       Height = 15
  117.       Transparent = True
  118.       Visible = False
  119.     end
  120.     object Label2: TLabel
  121.       Left = 132
  122.       Top = 8
  123.       Width = 42
  124.       Height = 15
  125.       Caption = 'Aranan:'
  126.       Transparent = True
  127.       Visible = False
  128.     end
  129.     object Image1: TImage
  130.       Left = 110
  131.       Top = 7
  132.       Width = 19
  133.       Height = 19
  134.       Picture.Data = {<image000.bmp>}
  135.     end
  136.     object DBGridJEN: TDBGrid
  137.       Left = 110
  138.       Top = 26
  139.       Width = 290
  140.       Height = 195
  141.       Color = clTeal
  142.       Ctl3D = True
  143.       DataSource = jenBrSRC
  144.       FixedColor = clSilver
  145.       Font.Color = clWhite
  146.       Font.Height = -12
  147.       Font.Name = 'Arial Tur'
  148.       Font.Style = [fsBold]
  149.       Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  150.       ParentCtl3D = False
  151.       ParentFont = False
  152.       TabOrder = 0
  153.       TitleFont.Color = clNavy
  154.       TitleFont.Height = -12
  155.       TitleFont.Name = 'Arial Tur'
  156.       TitleFont.Style = [fsBold]
  157.       OnColEnter = DBGridJENColEnter
  158.       OnDblClick = DBGridJENDblClick
  159.       OnEnter = DBGridJENColEnter
  160.       OnExit = DBGridJENColEnter
  161.       OnKeyDown = DBGridJENKeyDown
  162.       OnKeyPress = DBGridJENKeyPress
  163.     end
  164.   end
  165.   object Panel3: TPanel
  166.     Left = 0
  167.     Top = 288
  168.     Width = 515
  169.     Height = 57
  170.     HelpContext = 317
  171.     Align = alBottom
  172.     BevelInner = bvLowered
  173.     BevelWidth = 3
  174.     BorderWidth = 1
  175.     Color = clNavy
  176.     TabOrder = 2
  177.     object BitBtnYeni: TBitBtn
  178.       Left = 12
  179.       Top = 16
  180.       Width = 87
  181.       Height = 27
  182.       Hint = 'Insert Tu∩┐╜u'
  183.       Caption = 'Yeni Kay∩┐╜t'
  184.       Font.Color = clNavy
  185.       Font.Height = -12
  186.       Font.Name = 'Arial'
  187.       Font.Style = [fsBold]
  188.       ParentFont = False
  189.       ParentShowHint = False
  190.       ShowHint = True
  191.       TabOrder = 0
  192.       OnClick = BitBtnYeniClick
  193.       OnKeyDown = BitBtnYeniKeyDown
  194.       Glyph.Data = {
  195.         76010000424D7601000000000000760000002800000020000000100000000100
  196.         04000000000000010000130B0000130B00000000000000000000000000000000
  197.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  198.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  199.         33333333FF33333333FF333993333333300033377F3333333777333993333333
  200.         300033F77FFF3333377739999993333333333777777F3333333F399999933333
  201.         33003777777333333377333993333333330033377F3333333377333993333333
  202.         3333333773333333333F333333333333330033333333F33333773333333C3333
  203.         330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
  204.         993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
  205.         333333333337733333FF3333333C333330003333333733333777333333333333
  206.         3000333333333333377733333333333333333333333333333333}
  207.       Layout = blGlyphRight
  208.       NumGlyphs = 3
  209.     end
  210.     object BitBtnDegis: TBitBtn
  211.       Left = 113
  212.       Top = 16
  213.       Width = 87
  214.       Height = 27
  215.       Caption = '&De∩┐╜i∩┐╜tir'
  216.       Font.Color = clNavy
  217.       Font.Height = -12
  218.       Font.Name = 'Arial'
  219.       Font.Style = [fsBold]
  220.       ParentFont = False
  221.       ParentShowHint = False
  222.       ShowHint = False
  223.       TabOrder = 1
  224.       OnClick = BitBtnDegisClick
  225.       Glyph.Data = {
  226.         78010000424D7801000000000000760000002800000020000000100000000100
  227.         04000000000000000000120B0000120B00000000000000000000000000000000
  228.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  229.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
  230.         000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
  231.         00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
  232.         F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
  233.         0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
  234.         FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
  235.         FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
  236.         0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
  237.         00333377737FFFFF7733333033000000033333373377777773330000}
  238.       Layout = blGlyphRight
  239.       NumGlyphs = 2
  240.       Spacing = 5
  241.     end
  242.     object BitBtnSil: TBitBtn
  243.       Left = 214
  244.       Top = 16
  245.       Width = 87
  246.       Height = 27
  247.       Hint = 'Ctrl Delete Tu∩┐╜u'
  248.       Caption = 'Kay∩┐╜t Sil'
  249.       Font.Color = clNavy
  250.       Font.Height = -12
  251.       Font.Name = 'Arial'
  252.       Font.Style = [fsBold]
  253.       ParentFont = False
  254.       ParentShowHint = False
  255.       ShowHint = True
  256.       TabOrder = 2
  257.       OnClick = BitBtnSilClick
  258.       Glyph.Data = {
  259.         78010000424D7801000000000000760000002800000020000000100000000100
  260.         04000000000000000000120B0000120B00000000000000000000000000000000
  261.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  262.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
  263.         555557777F777555F55500000000555055557777777755F75555005500055055
  264.         555577F5777F57555555005550055555555577FF577F5FF55555500550050055
  265.         5555577FF77577FF555555005050110555555577F757777FF555555505099910
  266.         555555FF75777777FF555005550999910555577F5F77777775F5500505509990
  267.         3055577F75F77777575F55005055090B030555775755777575755555555550B0
  268.         B03055555F555757575755550555550B0B335555755555757555555555555550
  269.         BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
  270.         50BB555555555555575F555555555555550B55555555555555750000}
  271.       Layout = blGlyphRight
  272.       NumGlyphs = 2
  273.       Spacing = 2
  274.     end
  275.     object BitBtnKapat: TBitBtn
  276.       Left = 314
  277.       Top = 16
  278.       Width = 87
  279.       Height = 27
  280.       Hint = 'Alt-F4 Tu∩┐╜u'
  281.       Caption = 'Kapat'
  282.       Font.Color = clNavy
  283.       Font.Height = -12
  284.       Font.Name = 'Arial'
  285.       Font.Style = [fsBold]
  286.       ParentFont = False
  287.       ParentShowHint = False
  288.       ShowHint = True
  289.       TabOrder = 3
  290.       Kind = bkClose
  291.       Layout = blGlyphRight
  292.     end
  293.     object BitBtnHelp: TBitBtn
  294.       Left = 415
  295.       Top = 16
  296.       Width = 87
  297.       Height = 27
  298.       Hint = 'F1 Tu∩┐╜u'
  299.       HelpContext = 317
  300.       Caption = 'Yard∩┐╜m'
  301.       Font.Color = clNavy
  302.       Font.Height = -12
  303.       Font.Name = 'Arial'
  304.       Font.Style = [fsBold]
  305.       ParentFont = False
  306.       ParentShowHint = False
  307.       ShowHint = True
  308.       TabOrder = 4
  309.       Kind = bkHelp
  310.       Layout = blGlyphRight
  311.     end
  312.   end
  313.   object jenBrSRC: TDataSource
  314.     DataSet = jenBr
  315.     Left = 209
  316.     Top = 15
  317.   end
  318.   object jenBr: TTable
  319.     DatabaseName = 'ECZ'
  320.     IndexFieldNames = 'JENERIKAD;JENERIKNO'
  321.     TableName = 'JEN.DB'
  322.     Left = 222
  323.     Top = 15
  324.     object jenBrJENERIKAD: TStringField
  325.       DisplayLabel = 'JENERiK ∩┐╜S∩┐╜MLER∩┐╜'
  326.       FieldName = 'JENERIKAD'
  327.       Required = True
  328.       Size = 36
  329.     end
  330.     object jenBrJENERIKNO: TAutoIncField
  331.       FieldName = 'JENERIKNO'
  332.       Visible = False
  333.     end
  334.   end
  335.   object Query1: TQuery
  336.     DatabaseName = 'ECZ'
  337.     Params.Data = {01000100056A656E6E6F00030400000000000000}
  338.     SQL.Strings = (
  339.       'SELECT URUN.JENERIKNO'
  340.       'FROM URUN'
  341.       'WHERE JENERIKNO=:jenno')
  342.     Left = 456
  343.     Top = 121
  344.   end
  345. end
  346.